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1000 



class state ^ 002 
Join ( ) 

let joinedOrigin = currentState. origin 
let b1 = currentState.bindings 
1 006 let b2 = me. bindings 




currentState.bindings := 
100^-^ { i ->bi(i) |i inlndices(b1)-lndices(b2) } + 

{ 1 ->b2(1) 1 1 in Indices(b2) - Indices(bl) } + 

1008 ► { "| ->Resolve(joinedOrigin, v1, t2, v2, t2) 

1 1 in Indices(bl) * Indices(b2), 
(v1,t1)=b1(1),(v2,t2)=b2(1) } 

Resolve (joinedOrigin as Timestamp, 
1010 v1 as value, t1 as Timestamp, v2 as Value, t2 as 

Timestamp) as (Value, Timestamp) 
if Comparable (t1 , t2) then 
if Less (t1 , t2) then 

return (v2, joinedOrigin) 

^ 012 





else 

return (v1 , joinedOrigin) 

else 

return (Compose (v1, v2), joinedOrigin) 
Compose (v1 as value, v2 as value) as Value 
// dependent on the value domain 

Update (location as location, value as value) 

currentState. bindings(location) := (value, currentState. origin) 
Read (location as location) as Value 

return any v 1 1 -> (v, _) in currentState.bindings where 1 = location 
if none error "location" + location + "has not been initialized" 
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